home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / GetDANames 1.2.cpt / GetDANames 1.2 / card_2935.txt < prev    next >
Text File  |  1989-02-26  |  6KB  |  247 lines
  1. -- card: 2935 from stack: in.2
  2. -- bmap block id: 2307
  3. -- flags: 0000
  4. -- background id: 2812
  5. -- name: 
  6.  
  7.  
  8. -- part 7 (button)
  9. -- low flags: 00
  10. -- high flags: 8002
  11. -- rect: left=19 top=265 right=285 bottom=135
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 21
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Try it out!
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go card "Try it out!"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 8 (button)
  28. -- low flags: 00
  29. -- high flags: 8002
  30. -- rect: left=146 top=265 right=285 bottom=263
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 21
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Syntax & examples
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go card "Syntax & examples"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 9 (button)
  47. -- low flags: 00
  48. -- high flags: 8002
  49. -- rect: left=19 top=310 right=330 bottom=136
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 21
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Terms of distribution
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   show card field "Terms of distribution"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 16 (button)
  66. -- low flags: 00
  67. -- high flags: 8002
  68. -- rect: left=270 top=265 right=285 bottom=392
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 21
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Copy it to my stack
  77. ----- HyperTalk script -----
  78. on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  79.   put "HD40:Programming:XCMDs/XFCNs:GetDANames XCMD:GetDANames.2" into sourceStack
  80.   put the long name of this stack into destStack
  81.   delete first word of destStack
  82.   delete first character of destStack
  83.   delete last character of destStack
  84.   if sourceStack<>destStack then
  85.     set lockscreen to true
  86.     set lockmessages to true
  87.     push this card
  88.     go stack sourceStack
  89.     ResCopy sourceStack,destStack,"XCMD","invertScreen"
  90.     get the result
  91.     -- here is where you would copy more resources.
  92.     pop card
  93.     choose button tool
  94.     click at location of card button "Copy invertScreen"
  95.     domenu clear button
  96.     choose browse tool
  97.     set lockmessages to false
  98.     set lockscreen to false
  99.     if first char of it is "E" then
  100.       put char 4 of it into errorNumber
  101.       errorMessage errorNumber -- defined below
  102.     else
  103.       answer "Resource copied successfully to this stack." with "OK"
  104.     end if
  105.   end if
  106. end mouseUp
  107.  
  108. on errorMessage errorNumber
  109.   if errorNumber = 1 then
  110.     answer "The wrong number of parameters were passed." with "OK"
  111.   else if errorNumber = 2 then
  112.     answer "The source file couldn't be opened." with "OK"
  113.   else if errorNumber = 3 then
  114.     answer "A new destination file couldn't be created." with "OK"
  115.   else if errorNumber = 4 then
  116.     answer "The resource to be copied wasn't found in the source." with "OK"
  117.   end if
  118. end errorMessage
  119.  
  120.  
  121.  
  122.  
  123. -- part 12 (field)
  124. -- low flags: 81
  125. -- high flags: 2004
  126. -- rect: left=10 top=40 right=201 bottom=402
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 0
  130. -- font id: 21
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Acknowledgments
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   hide card field "Acknowledgments"
  138. end mouseUp
  139.  
  140.  
  141. -- part 14 (field)
  142. -- low flags: 01
  143. -- high flags: 2004
  144. -- rect: left=17 top=201 right=311 bottom=486
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 0
  148. -- font id: 21
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Terms of distribution
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   hide card field "Terms of distribution"
  156. end mouseUp
  157.  
  158.  
  159. -- part 21 (button)
  160. -- low flags: 00
  161. -- high flags: 8002
  162. -- rect: left=145 top=310 right=330 bottom=262
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 1
  166. -- font id: 21
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Revision history
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   show card field "Revision history"
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 22 (field)
  179. -- low flags: 81
  180. -- high flags: 2004
  181. -- rect: left=212 top=45 right=297 bottom=505
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 0
  185. -- font id: 21
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: Revision history
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   hide card field "Revision history"
  193. end mouseUp
  194.  
  195.  
  196. -- part 23 (button)
  197. -- low flags: 00
  198. -- high flags: 8002
  199. -- rect: left=272 top=310 right=330 bottom=393
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 21
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Acknowledgments
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   show card field "Acknowledgments"
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part contents for card part 12
  216. ----- text -----
  217. Acknowledgments:
  218. ‚Ä¢ Edward Moy for helpful programming advice.
  219. ‚Ä¢ Stephen Kurtzman for Turbo Pascal header and example files for
  220.    HyperCard‚Ñ¢ external routines.
  221. ‚Ä¢ James L. Paul for scripts & tools in his "Resource Copier"
  222.    and "HyperList" stacks (¬©1987,1988 James L. Paul).
  223. ‚Ä¢ Dennis C. DeMars for the button creation scripts in his "YAM" 
  224.    ("Yet Another MiniFinder") stack.
  225. ‚Ä¢ Steve Maller for scripts & tools in his "ResCopier" stack.
  226.  
  227.  
  228. Steve Maller for his "ResCopier" stack.
  229.  
  230.  
  231.  
  232. -- part contents for card part 14
  233. ----- text -----
  234. Distribution:
  235. External routine(s) and stack Copyright ¬© 1988 by Aron Roberts 
  236. (aron@garnet.Berkeley.EDU, !ucbvax!garnet!aron, ARONR@UCBCMSA.BITNET, CompuServe 73075,1342, GEnie ARON).
  237. May be freely distributed and used in both non-commercial and commercial stacks without charge. 
  238.  
  239. -- part contents for card part 22
  240. ----- text -----
  241. Revision history:
  242.  
  243. Version 1.2, 11 Jun 1988 (in this stack).  The size of the XCMD, "getDANames," was reduced from 8,330 bytes to 1,894 bytes by using Inline calls.  The "numberOfDAs()" XFCN was replaced by a two-line HyperTalk function.
  244.  
  245. Version 1.1, 25 Jan 1988.  Bug fix to properly handle DAs and other items appearing in the Apple menu (such as Font/DA Juggler‚Ñ¢ Plus) whose names begin with two or more null characters.
  246.  
  247. Version 1.0, 7 Jan 1988.  Original version.